home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / os2 / confcopy.arj / CONFCOPY.BTM < prev    next >
Text File  |  1994-01-10  |  896b  |  32 lines
  1. ECHO COPYRIGHT John B. Jacobsen
  2. SET CONFIG=D:\CONFIG.SYS
  3. SET BACKUPDIR=C:\OS2\SYS\
  4. SET EXTNO=C:\OS2\SYS\CONFIG.DAT
  5. SET HANDLE=%@FILEOPEN[%EXTNO,READ]
  6. IFF %HANDLE GT 0 THEN
  7.     SET NO=%@FILEREAD[%HANDLE]
  8.     SET ERROR=%@FILECLOSE[%HANDLE]
  9.     IF %NO LT 100 SET NO=0%NO
  10.     IF %NO LT 10 SET NO=0%NO
  11.     SET PNO=%@DEC[%NO]
  12.     IF %PNO LT 100 SET PNO=0%PNO
  13.     IF %PNO LT 10 SET PNO=0%PNO
  14. ELSE
  15.     SET NO=000
  16. ENDIFF
  17. SET TARGET=%BACKUPDIR%CONFIG.%NO%
  18. SET PTARGET=%BACKUPDIR%CONFIG.%PNO%
  19. SET SOURCETIME=%@FILETIME[%CONFIG]
  20. SET PTARGETTIME=%@FILETIME[%PTARGET]
  21. IFF %PTARGETTIME NE %SOURCETIME THEN
  22.    COPY %CONFIG %TARGET > NUL
  23.    ECHO %CONFIG copied to %TARGET
  24.    SET NO=%@INC[%NO]
  25.    IF %HANDLE GT 0 ERASE %EXTNO > NUL
  26.    SET HANDLE=%@FILEOPEN[%EXTNO,WRITE]
  27.    SET ERROR=%@FILEWRITE[%HANDLE,%NO]
  28.    SET ERROR=%@FILECLOSE[%HANDLE]
  29. ELSE
  30.    ECHO Copying not needed
  31. ENDIFF
  32.